home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 September / macformat-028.iso / mac / Shareware City / Developers / FANTASM V3.01 / F3_EXAMPLE / SOUND_MAIN.S next >
Encoding:
Text File  |  1995-02-05  |  992 b   |  33 lines  |  [TEXT/R*ch]
  1. *******************************
  2. *SOUND_MAIN.S                  *
  3. *CALLS ALL NECESSARY ROUTINES *
  4. *TO PLAY A SOUND RESOURCE 128 *
  5. *IN THE BACKGROUND.              *
  6. *******************************
  7. SOUND_MAIN:    MOVE.W    #128,D0        *THE NUMBER OF THE SOUND RESOURCE TO LOAD
  8.             BSR.L    LOAD_SOUND    *LOAD IT AND RETURN HANDLE IN D0
  9.             MOVE.L    D0,SOUND(A5)    *STORE HANDLE
  10.  
  11. **NOW SET UP THE CHANNEL WE WANT, WHICH IS 0
  12.             CLR.L    CHAN(A5)
  13.             
  14. **NOW START THE SOUND PLAYING AND QUIT
  15.             BSR.L    PLAY_SOUND
  16. **now wait 5 seconds before quitting
  17.             CLR.L    -(SP)
  18.             DC.W    TICKCOUNT
  19.             MOVE.L    (SP)+,D0    CURRENT TIME IN 60THS OF A SECOND
  20.             ADD.L    #5*60,D0        ADD ON 5 SECONDS
  21.             MOVE.L    D0,WAIT_TIME(A5)
  22.             
  23. **WAIT FOR TIMER TO REACH T+5 SECONDS
  24. WAIT:        CLR.L    -(SP)
  25.             DC.W    TICKCOUNT
  26.             MOVE.L    (SP)+,D0    GET CURRENT TIME
  27.             CMP.L    WAIT_TIME(A5),D0    COMPARE IT TO TIME STORED
  28.             BLT.S    WAIT        IF LESS THAN, THEN WAIT
  29.             RTS
  30.             global    sound_main    *every file must have at least one global def
  31.                                 *even its just a dummy.
  32.             EXTERN    LOAD_SOUND,PLAY_SOUND
  33.